home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 February: Tool Chest / Dev.CD Feb 95 / Dev.CD Feb 95.toast / Tool Chest / Interfaces / Universal Interfaces 2.0a3 / Universal AIncludes / FixMath.a < prev    next >
Encoding:
Text File  |  1994-11-11  |  2.0 KB  |  129 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        FixMath.a
  3. ;
  4. ;    Copyright:    © 1984-1994 by Apple Computer, Inc.
  5. ;                All rights reserved.
  6. ;
  7. ;    Version:    Universal Interfaces 2.0a3  ETO #16, MPW prerelease.  Friday, November 11, 1994. 
  8. ;
  9. ;    Bugs?:        If you find a problem with this file, send the file and version
  10. ;                information (from above) and the problem description to:
  11. ;
  12. ;                    Internet:    apple.bugs@applelink.apple.com
  13. ;                    AppleLink:    APPLE.BUGS
  14. ;
  15. ;
  16.  
  17.     IF &TYPE('__FIXMATH__') = 'UNDEFINED' THEN
  18. __FIXMATH__ SET 1
  19.  
  20.  
  21.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  22.     include 'Types.a'
  23.     ENDIF
  24. ;        include 'ConditionalMacros.a'                                ;
  25.  
  26. fixed1                            EQU        $00010000
  27. fract1                            EQU        $40000000
  28. positiveInfinity                EQU        $7FFFFFFF
  29. negativeInfinity                EQU        $80000000
  30.  
  31.     IF GENERATING68K THEN
  32.         _Fix2Frac:    OPWORD    $A841
  33.     ELSE
  34.         IMPORT    Fix2Frac
  35.     ENDIF
  36.  
  37.     IF GENERATING68K THEN
  38.         _Fix2Long:    OPWORD    $A840
  39.     ELSE
  40.         IMPORT    Fix2Long
  41.     ENDIF
  42.  
  43.     IF GENERATING68K THEN
  44.         _Long2Fix:    OPWORD    $A83F
  45.     ELSE
  46.         IMPORT    Long2Fix
  47.     ENDIF
  48.  
  49.     IF GENERATING68K THEN
  50.         _Frac2Fix:    OPWORD    $A842
  51.     ELSE
  52.         IMPORT    Frac2Fix
  53.     ENDIF
  54.  
  55.     IF GENERATING68K THEN
  56.         _FracMul:    OPWORD    $A84A
  57.     ELSE
  58.         IMPORT    FracMul
  59.     ENDIF
  60.  
  61.     IF GENERATING68K THEN
  62.         _FixDiv:    OPWORD    $A84D
  63.     ELSE
  64.         IMPORT    FixDiv
  65.     ENDIF
  66.  
  67.     IF GENERATING68K THEN
  68.         _FracDiv:    OPWORD    $A84B
  69.     ELSE
  70.         IMPORT    FracDiv
  71.     ENDIF
  72.  
  73.     IF GENERATING68K THEN
  74.         _FracSqrt:    OPWORD    $A849
  75.     ELSE
  76.         IMPORT    FracSqrt
  77.     ENDIF
  78.  
  79.     IF GENERATING68K THEN
  80.         _FracSin:    OPWORD    $A848
  81.     ELSE
  82.         IMPORT    FracSin
  83.     ENDIF
  84.  
  85.     IF GENERATING68K THEN
  86.         _FracCos:    OPWORD    $A847
  87.     ELSE
  88.         IMPORT    FracCos
  89.     ENDIF
  90.  
  91.     IF GENERATING68K THEN
  92.         _FixATan2:    OPWORD    $A818
  93.     ELSE
  94.         IMPORT    FixATan2
  95.     ENDIF
  96.  
  97.     IF GENERATINGPOWERPC  THEN
  98. ; returns the quotient 
  99. ; quotient replaces dividend 
  100.     ENDIF
  101.     IF GENERATING68K  ** ¬ GENERATING68881  THEN
  102.     IF GENERATING68K THEN
  103.         _Frac2X:    OPWORD    $A845
  104.     ELSE
  105.         IMPORT    Frac2X
  106.     ENDIF
  107.  
  108.     IF GENERATING68K THEN
  109.         _Fix2X:    OPWORD    $A843
  110.     ELSE
  111.         IMPORT    Fix2X
  112.     ENDIF
  113.  
  114.     IF GENERATING68K THEN
  115.         _X2Fix:    OPWORD    $A844
  116.     ELSE
  117.         IMPORT    X2Fix
  118.     ENDIF
  119.  
  120.     IF GENERATING68K THEN
  121.         _X2Frac:    OPWORD    $A846
  122.     ELSE
  123.         IMPORT    X2Frac
  124.     ENDIF
  125.  
  126.     ELSE
  127.     ENDIF
  128.     ENDIF ; __FIXMATH__
  129.